home *** CD-ROM | disk | FTP | other *** search
- :allkeys.scr
-
- if memory 1 = 5 goto cont_lkl
- memory 1 = 5
- memory 2 = 0
-
- :cont_lkl
- if memory 2 > 0 goto repeat_lesson2
-
- goto start_lesson
- :repeat_lesson
- bkey r
- bkey '
-
- :start_lesson
- start 2
- clear 15
-
- cursor 23 19
- print 'Press any key to start lesson 7.
- wait -
- clear 19 19
-
- clear 15
- cursor 0 15
- print 'In lesson 7 we will practice with all the keys you have learnt.
-
- cursor 19 18
- print 'qaz wsx edc rfv tgb yhn ujm ik, ol. p;/
- cursor 0 21
- print 'Remember your fingers rest on the HOME keys.
- hkey a
- fkey q
- fkey z
- hkey s
- fkey w
- fkey x
- hkey d
- fkey e
- fkey c
- hkey f
- fkey r
- fkey v
- fkey g
- fkey t
- fkey b
- fkey h
- fkey y
- fkey n
- hkey j
- fkey u
- fkey m
- hkey k
- fkey i
- fkey ,
- hkey l
- fkey o
- fkey .
- hkey ;
- fkey p
- fkey /
- script - waitspc
- bkey a
- bkey q
- bkey z
- bkey s
- bkey w
- bkey x
- bkey d
- bkey e
- bkey c
- bkey f
- bkey r
- bkey v
- bkey g
- bkey t
- bkey b
- bkey h
- bkey y
- bkey n
- bkey j
- bkey u
- bkey m
- bkey k
- bkey i
- bkey ,
- bkey l
- bkey o
- bkey .
- bkey ;
- bkey p
- bkey /
- script - dotest1
-
- clear 18 18
- cursor 9 18
- print 'qaza, wsxs, edcd, rfvf, tgbg. yhnh, ujmj, ik,k, ol.l, p;/;.
- script - dotest2
-
- clear 18 18
- cursor 9 18
- print 'azaq, swsx, dcde. frfv, gbgt, hyhn, jmju. kik, l.lo. ;p;/,
- script - dotest2
-
- clear 18 18
- cursor 9 18
- print 'awaqz swsex dedrc frftv gtgyb hyhun jujim kiko, lolp; y/n.
- script - dotest2
-
- clear 18 18
- cursor 9 18
- print 'azaqz sxszw dcdxe fcfvr gbgvt hyhbn jmjnu kikm, l,l.o ;.;/p
- script - dotest2
-
- script - progress
-
- clear 15
- cursor 2 15
- print 'We will practice with random letters.
-
- cursor 9 18
- print 'h s o , s d x ; x r t c d j / b d u r j o d b z x r t m / m
- cursor 0 21
- print 'Remember your fingers rest on the HOME keys.
- hkey a
- hkey s
- hkey d
- hkey f
- hkey j
- hkey k
- hkey l
- hkey ;
- script - waitspc
- bkey a
- bkey s
- bkey d
- bkey f
- bkey j
- bkey k
- bkey l
- bkey ;
- script - dotest2
-
- clear 18 18
- cursor 9 18
- print '/ x n r l d / x x t d t i d a f c , n / / x g e n y g d i r
- script - dotest2
-
- clear 18 18
- cursor 9 18
- print 'o h a p i c t m . i w q x r s r p w c ; n p v v q v k j j a
- script - dotest2
-
- clear 18 18
- cursor 9 18
- print 'v / i f n p t g a b z l t v b s b v f o a i q y v e l k . f
- script - dotest2
-
- clear 18 18
- cursor 9 18
- print 'n o u j a ; z p . . , w , z x v ; y c h i j o u q l / m z ;
- script - dotest2
-
- script - progress
-
- clear 15
- cursor 2 15
- print 'We will practice with groups of random letters.
-
- cursor 9 18
- print 'j/ b/ ts ty qk om qx s, km xq fy b, qy .g tl xo yr ;z yv lj
- cursor 0 21
- print 'Remember your fingers rest on the HOME keys.
- hkey a
- hkey s
- hkey d
- hkey f
- hkey j
- hkey k
- hkey l
- hkey ;
- script - waitspc
- bkey a
- bkey s
- bkey d
- bkey f
- bkey j
- bkey k
- bkey l
- bkey ;
- script - dotest2
-
- clear 18 18
- cursor 9 18
- print 'ar mz ng uh ;p /k zp x; ,q vn ln rx p/ os vl gq vx mz ;; ow
- script - dotest2
-
- clear 18 18
- cursor 9 18
- print 'de /g jd ;n ;l bn bm .n bw f, hc ;. bk zu kw fj ku ud ui ,f
- script - dotest2
-
- clear 18 18
- cursor 9 18
- print '/;y e;v wsm vd, qmw ;by oka qkk .fb q/n vyk zsi ifr wfn bqe
- script - dotest2
-
- clear 18 18
- cursor 9 18
- print 'egg be; n;q ;np /s; gmv zvx gsa uzu gbv at/ qul puo dug z.x
- script - dotest2
-
- clear 18 18
- cursor 9 18
- print 'dpbh fi mgc;. e;y yn/k go cpwa f qmil syq ,u e;u. ;gb.x .uk
- script - dotest2
-
- script - progress
-
- clear 15
- cursor 2 15
- print 'Now we will practice with simple pieces of text.
-
- cursor 19 18
- print 'magistrates act to keep theatres open.
- cursor 0 21
- print 'Remember your fingers rest on the HOME keys.
- hkey a
- hkey s
- hkey d
- hkey f
- hkey j
- hkey k
- hkey l
- hkey ;
- script - waitspc
- bkey a
- bkey s
- bkey d
- bkey f
- bkey j
- bkey k
- bkey l
- bkey ;
- script - dotest1
-
- clear 18 18
- cursor 9 18
- print 'shell found on beach. man who received trousers loses appeal.
- script - dotest2
-
- clear 18 18
- cursor 9 18
- print 'filming in cemetery angers residents. man fined for barking.
- script - dotest2
-
- clear 18 18
- cursor 9 18
- print 'crash courses for private pilots. scotland to be sold.
- script - dotest2
-
- clear 18 18
- cursor 9 18
- print 'stars broken leg hits box office. nixon picks his spot.
- script - dotest2
-
- clear 18 18
- cursor 9 18
- print 'sewage plant on sea front might smell, expert says.
- script - dotest2
-
- clear 18 18
- cursor 9 18
- print 'savage appointed high court judge. massive organ draws the crowd.
- script - dotest2
-
- clear 18 18
- cursor 9 18
- print 'during nuclear attack there will be a school holiday.
- script - dotest2
-
- script - progress
-
- script - repeat
- if key = R goto repeat_lesson
- if key = r goto repeat_lesson
-
- memory 2 = 1
-
- clear
- cursor 51 7
- print '7.
- script - save
- if key = S goto exit
- if key = s goto exit
-
- clear
- keyboard
-
- :repeat_lesson2
- if memory 2 > 1 goto exit
- start 2
- clear 15
- cursor 23 19
- print 'Press any key to start lesson 8.
- wait -
- clear 19 19
-
- cursor 2 16
- print 'Now that you have learnt all of the ALPHA keys, that is all the letters, I
- cursor 0 17
- print 'shall introduce a new key; the ENTER key, also known as the carriage return.
-
- cursor 2 19
- print 'The ENTER key is located to the far right of the main keyboard, you press it
- cursor 0 20
- print 'with your right little finger.
-
- hkey 13
-
- cursor 23 22
- print 'Try pressing the ENTER key now.
-
- :wait_for_cr
- wait -
- if key ! 13 goto wait_for_cr
-
- bkey 13
-
- cursor 17 22
- print 'Good. Now press the SPACE BAR to continue...
-
- :wait_for_sp
- wait -
- if key ! 32 goto wait_for_sp
-
- clear 15
- cursor 2 16
- print 'Good. Generally the ENTER key is used to insert a carriage return marker at
- cursor 0 17
- print 'the end of paragraphs. However, you also use it when you are entering other
- cursor 0 18
- print 'types of data, like entering numbers into a spreadsheet, or names of books
- cursor 0 19
- print 'into a database.
-
- cursor 2 20
- print 'The following tests will use the ENTER key. It may not matter now, but try
- cursor 0 21
- print 'not to think that you have to press the ENTER key at the end of every row you
- cursor 0 22
- print 'type, but at the end of every paragraph.
-
- script - waitspc
-
- clear 15
- cursor 5 16
- print 'british penalties for cheating in potato growing contests are among
- cursor 5 20
- print 'the severest in the civilised world.
- enter
- script - dotest3
-
- clear 15
- cursor 5 16
- print 'from next tuesday, the b.b.c. will include weather hints for mars
- cursor 5 20
- print 'in the early morning home service programme; farming today.
- enter
- script - dotest3
-
- clear 15
- cursor 5 16
- print 'a large piece of green blotting paper rested on the prime ministers
- cursor 5 20
- print 'seat in the house of commons today. it was both symbolic and necessary.
- enter
- script - dotest3
-
- script - progress
-
- hkey ;
- fkey ''
-
- clear 15
- cursor 2 16
- print 'The key just to the right of the ; key is the ' key, you press it with your
- cursor 0 17
- print 'right little finger.
-
- cursor 2 19
- print 'Try pressing the ' key by moving your right little finger over from
- cursor 0 20
- print 'the ; key.
-
- :wait_for_'
- wait -
- if key ! ' goto wait_for_'
-
- fkey ;
- hkey ''
-
- print ' Good, now press the ; key.
-
- :wait_for_;
- wait -
- if key ! ; goto wait_for_;
-
- bkey ''
- hkey ;
-
- cursor 17 22
- print 'Good. Now press the SPACE BAR to continue...
-
- :wait_for_sp2
- wait -
- if key ! 32 goto wait_for_sp2
-
- bkey ;
-
- :a1
- clear 15
- cursor 5 16
- print 'note; in some of our copies the article 'the power of the papacy'
- cursor 5 20
- print 'described the pope as 'his satanic majesty', this should read 'the
-
- cursor 5 16
- start 3
- test -
- scroll 4 15 22
- cursor 5 20
- print 'roman antichrist.'
- enter
- cursor 5 16
- test -
- cursor 5 20
- test -
- script - dotest4
- if mistakes 3 > 0 goto a1
-
- hkey 1
- hkey 2
-
- clear 15
- cursor 2 16
- print 'Before we move on to the symbol row, we shall introduce the SHIFT keys. They
- cursor 0 17
- print 'are located on both sides of the SPACE BAR on the row above, marked with a
- cursor 0 18
- print 'upwards pointing arrow. Some keyboards also label these keys with the word
- cursor 0 19
- print 'SHIFT.
-
- cursor 2 20
- print 'You use one of these keys with one hand, together with another key with the
- cursor 0 21
- print 'other hand to 'capitalise' a letter, or type a secondary symbol on one of the
- cursor 0 22
- print 'symbol keys; for example using a shift key with the symbol key / will produce ?
-
- script - waitspc
-
- clear 15
- cursor 2 16
- print 'Your left little finger presses the left SHIFT key, and your right little
- cursor 0 17
- print 'finger presses the right SHIFT key.
- cursor 0 19
- print 'Try pressing the right SHIFT key and hold it down.
-
- bkey 2
-
- :a6
- bkey
- key = 0
- :a7
- scan
- if key = 27 goto exit
- if shift 3 = 0 goto a7
-
- if shift 3 ! 1 goto a6
-
- clear 21 21
- print 'Good, now press the F key with your left index finger.
-
- :a4
- wait -
- if key = F goto a5
- if key ! f goto a4
-
- clear 21 21
- print 'You didn't hold the right SHIFT key down when you pressed F. Try again.
- goto a6
-
- :a5
- hkey
- cursor 0 22
- print 'Good. Now let go of both keys.
-
- :a10
- key = 0
- scan
- if key = 0 goto a11
- wait
- goto a10
- :a11
- if shift 3 ! 0 goto a10
-
- print ' Well done.
- script - waitspc
- bkey F
-
- clear 19
- print 'Try pressing the left SHIFT key and hold it down.
- hkey 2
-
- :a3
- bkey
- key = 0
- :a2
- scan
- if key = 27 goto exit
- if shift 3 = 0 goto a2
-
- if shift 3 ! 2 goto a3
-
- clear 21 21
- print 'Good, now press the J key with your right index finger.
-
- :a8
- wait -
- if key = J goto a9
- if key ! j goto a8
-
- clear 21 21
- print 'You didn't hold the left SHIFT key down when you pressed J. Try again.
- goto a3
-
- :a9
- hkey
- cursor 0 22
- print 'Good. Now let go of both keys.
-
- :a12
- key = 0
- scan
- if key = 0 goto a13
- wait
- goto a12
- :a13
- if shift 3 ! 0 goto a12
-
- print ' Well done.
- script - waitspc
- bkey J
-
- clear 15
- cursor 2 16
- print 'Whenever you wish to capitalise a letter that is pressed by your right hand
- cursor 0 17
- print 'you press the shift key with your left hand. Whenever you wish to capitalise a
- cursor 0 18
- print 'letter that is pressed by your left hand you press the shift key with your
- cursor 0 19
- print 'right hand.
-
- cursor 2 20
- print 'The following tests will use the SHIFT keys. Because the next test is longer
- cursor 0 21
- print 'than usual, I shall not expect 100% accuracy, so for now we will set the pass
- cursor 0 22
- print 'rate at 90%.
-
- script - waitspc
-
- :again
- start 3
-
- clear 15
- cursor 0 16
- print 'Simplicity: Features that are too complex for the application programmer to
- cursor 0 20
- print 'understand will not be used. It is often difficult for the graphics package
-
- cursor 0 16
- start 3
- test -
- scroll 4 15 22
- cursor 0 20
- print 'designer to detect potentially difficult aspects of his design. These aspects
- cursor 0 16
- test -
-
- scroll 4 15 22
- cursor 0 20
- print 'do, however, become more obvious when the user's manual is written. One way to
- cursor 0 16
- test -
-
- scroll 4 15 22
- cursor 0 20
- print 'avoid these difficult features is to try to write the user's manual before
- cursor 0 16
- test -
-
- scroll 4 15 22
- cursor 0 20
- print 'implementing the system. Anything difficult to explain will almost certainly
- cursor 0 16
- test -
-
- scroll 4 15 22
- cursor 0 20
- print 'be difficult to use.
- enter
- cursor 0 16
- test -
- cursor 0 20
- test -
-
- clear 21
- cursor 0 22
- print 'Your speed was
- words 3
- print ' wpm,
- if accuracy 3 >= 90 goto passed
- print 'but your accuracy was
- accuracy 3
- print '%, which simply isn't good
- cursor 0 23
- print 'enough. Try again.
- script - waitspc
- goto again
-
- :passed
- print 'and your accuracy was
- accuracy 3
- print '% which is excellent.
- cursor 0 23
- print 'Well done.
- script - waitspc
-
- script - repeat
- if key = R goto repeat_lesson2
- if key = r goto repeat_lesson2
-
- memory 2 = 2
-
- clear
- cursor 51 7
- print '8.
- script save
-
- if key ! C if key ! c goto exit
- clear
- keyboard
-
- :exit